Szövegfájl (szoveg.txt) másolása egy új szövegfálba (ujszoveg.txt) (Masolo.pas)

program Masolo;
uses crt;
var f,g:text;
    s:string;
BEGIN
   writeln('A masolas kezdete...');
   assign(f,'szoveg.txt');
   assign(g,'ujszoveg.txt');
   reset(f);
   rewrite(g);
   while (not eof(f)) do begin
      readln(f,s);
      writeln(g,s);
      end;
   close(f);
   close(g);
END.